home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / insect sound (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  173b  |  9 lines
  1. 8500 rem *** insect sound ***
  2. 8505 rem fori=1to500
  3. 8510 d=32:s=54272:pokes+24,15:pokes+13,0:pokes+8,100:pokes+12,2
  4. 8515 if(peek(162)andd)=dthenpokes+11,33
  5. 8520 pokes+11,0
  6. 8525 geta$:ifa$<>""thenstop
  7. 8530 goto8510
  8. 8535 :
  9.